home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / Examples / ttx / NextError.ttx next >
Encoding:
Text File  |  1991-11-01  |  733 b   |  30 lines
  1. /*******************************************************/
  2. /* NextError.ttx - TurboText macro to search for the    */
  3. /* errors in the source ARexx file.  It assumes that    */
  4. /* the error file is VD0:errors.  If you change the    */
  5. /* path or error file name in the RxPCompile.ttx macro    */
  6. /* then be sure to change this macro as well.        */
  7. /*                                            */
  8. /* Steven D. Kapplin - 9/9/91                        */
  9. /*******************************************************/
  10.  
  11. TRACE OFF
  12.  
  13. OPTIONS RESULTS
  14.  
  15. fpos = getclip('FilePos')
  16.  
  17. CALL open(f,'vd0:errors','r')
  18. CALL seek(f,fpos,'b')
  19. err = readln(f)
  20.  
  21. CALL seek(f,0,'c')
  22. CALL setclip('FilePos',fpos)
  23. CALL close(f)
  24.  
  25. PARSE VAR err code ':' line ':' col ':' errmsg
  26.  
  27. Move line col
  28. CenterView TOGGLE
  29. SetStatusBar errmsg
  30.